031100******************************************************************00031100
031200**  1300-LEER-FICHERO-ZV0001R                                   **00031200
031300******************************************************************00031300
031310*$%                                                               00031310
031400 1300-LEER-FICHERO-ZV0001R.                                       00031400
031500                                                                  00031500
031600     READ ZV0001R INTO SG8002DI                                   00031600
031610*$$ LEE EL ARCHIVO ZV0001R EN LA COPY SG8002DI APLANTILLANDOLO    00031610
031700                                                                  00031700
031710*$%
031800     EVALUATE W-FILE-STATUS-ZV0001R                               00031800
031900                                                                  00031900
032000        WHEN  ZEROES                                              00032000
032010*$$ SI EN ESTADO ES 0 EL FICHERO ES CORRECTO Y CONTIENE INFO      00032010
032100                                                                  00032100
032200              MOVE CC-LEER               TO  VAR-ACCION           00032200
032300              PERFORM U401-ACC-FICH-ENTRADA-01                    00032300
032310*$$ LLAMAMOS A LA FUNCION EN LA COPY                              00032310
032400                                                                  00032400
032500        WHEN  W-CTE-FICH-VACIO                                    00032500
032500*$$ CUANDO EL ESTADO ES QUE ESTA VACIO, TIENE VALOR 10            00032510
032600                                                                  00032600
032700              SET  SI-FIN-ENTRADA        TO  TRUE                 00032700
032710*$$ INDICAMOS EN LA VARIABLE QUE HA LLEGADO AL FINAL DEL FICHERO  00032710
032800                                                                  00032800
032900        WHEN  OTHER                                               00032900
032910*$$ SI HAY PROBLEMAS CON EL ESTADO DEL FICHERO                    00032910
033000                                                                  00033000
033010*$%                                                               00033010
033100              DISPLAY 'ERROR LECTURA FICHERO: '                   00033100
033200                                           LIT-FICH-ENT-FZV0001R  00033200
033300              DISPLAY 'FILE STATUS: '      W-FILE-STATUS-ZV0001R  00033300
033400                                                                  00033400
033500              PERFORM 9999-TRATAR-ERROR                           00033500
033510*%$ INDICA QUE HA FALLADO Y LLAMAMOS AL PARRAFO PARA SU GESTION   00033510
033600                                                                  00033600
033700     END-EVALUATE.                                                00033700
033710*%$ COMPRUEBA EL ESTADO DEL FICHERO DE ENTRADA                    00033710
033800                                                                  00033800
033810*%$ PARRAFO PARA LEER FICHEROS                                    00033810